Horoscope Companion: Gemini/Horoscope Companion: Gemini.iso/pc/gemini/ce.dir/Internal_17.ls

Text File | 1996-10-08 | 944 b | 38 lines

on startRollover whichSprite
  global gWhichYear
  if gWhichYear <> "1999" then
    hStartRolloverAction(whichSprite)
  end if
end

on mouseDown
  global gWhichYear
  if gWhichYear <> "1999" then
    if hButtonAction02() then
      mouseUp()
    end if
  end if
end

on mouseUp
  global gWhichYear, gWhichGender, gWhichAge, gTextSpriteNum, gWhichOldYearSprite
  if gWhichYear <> "1999" then
    cursor(4)
    hDefaultScrollText()
    set gWhichYear to "1999"
    set tWhichText to the number of member (gWhichGender && gWhichAge && gWhichYear && "text") of castLib the castLibNum of sprite gTextSpriteNum
    set the memberNum of sprite gTextSpriteNum to member tWhichText
    puppetSprite(gWhichOldYearSprite, 0)
    set gWhichOldYearSprite to the clickOn
    updateStage()
    hFingerPointingCursor()
  end if
end

on endRollover whichSprite
  global gWhichYear
  if gWhichYear <> "1999" then
    hEndRolloverAction(whichSprite)
  end if
end